EnigmA Amiga Run 1996 February/EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso/earcd/editor/fwpspchs.lha/FWEPSPatches/Install FW EPS patch

Text File | 1995-08-19 | 4KB | 189 lines

; $VER: Install FW EPS patch 1.01 (19.8.1995) © Manuel Lemos 1995
; Script to install a patch to FinalWriter Releases 1, 2, 3 and 4 to let it render EPS files that use PostScript fonts.

(
    procedure PatchInitPSFile
    (
        (
            if (= renamed-old-init 0)
            (
                (
                    copyfiles
                    (source destination$)
                    (dest @default-dest)
                    (newname "init.ps.old")
                )
                (set renamed-old-init 1)
            )
        )
        (set patch$ (tackon source$ patch$))
        (set spatch$ (tackon source$ "spatch"))
        (set result (run ("\"%s\" \"-p%s\" \"-o%s\" \"%s\"" spatch$ patch$ destination$ (tackon @default-dest "init.ps.old"))))
    )
)

(
    set prompt-where$
    "Please indicate where in disk was installed FinalWriter."
)
(
    set help-where$
    (
        cat
        "Please indicate where in disk was installed FinalWriter.\n\nThe "
        "directory where FinalWriter was installed must contain sub-directory "
        "named \"FWFiles\" with a file named \"init.ps\" in it.\n\n"
    )
)
(
    set init.ps-doesnt-exist$
    (
        cat
        "Apparently the \"init.ps\" does not exist or is unreadable.\n\n"
        "Being so, it is not possible to install this patch!\n\n"
        "Sorry, please contact Softwood."
    )
)
(
    set FWFiles-not-here$
    (
        cat
        "Apparently FinalWriter was not installed in this directory.\n\n"
        "The directory where FinalWriter was installed has a sub-directory "
        "named \"FWFiles\" in it."
    )
)
(
    set patch-is-already-installed$ "Apparently the patch was already installed."
)
(
    set unknown-version$ "An unknown version of the \"init.ps\" is installed!\n\n"
)
(
    set changed-version$
    (
        cat
        "If you have edited the file or somehow it was changed, please restore "
        "the original file from the original installation disks.\n\n"
        "NOTE:  Keep in mind that this patch only applies to FinalWriter "
        "Release 1, 2, 3 or 4."
    )
)
(
    set prompt-release$ "Which Release of FinalWriter do you have installed?"
)
(
    set help-release$
    (
        cat
        "This patch only applies to FinalWriter Release 1, 2, 3 or 4.  Please "
        "specify the Release you have installed.\n\n"
        "If you don't have any of these versions properly installed, this patch "
        "is useless for you.\n\n"
    )
)
(
    set wrong-version$
    (
        cat
        "Apparently you don't have installed the Release of FinalWriter that "
        "you have specified!\n\n"
        "Please specify again which Release you have installed.\n\n"
    )
)
(set source$ (expandpath ""))
(set FinalWriter$ (tackon @default-dest "FinalWriter"))
(set destination$ "")
(
    until (AND (<> "" destination$) (exists destination$))
    (
        (
            set FinalWriter$
            (
                askdir
                    (prompt prompt-where$)
                    (help (cat help-where$ @askoptions-help))
                    (default FinalWriter$)
                    (disk)
            )
        )
        (set destination$ (tackon FinalWriter$ "FWFiles"))
        (
            if (exists destination$)
            (
                (
                    if (= 0 (exists (tackon destination$ "init.ps")))
                    (
                        abort init.ps-doesnt-exist$
                    )
                )
            )
            (
                message FWFiles-not-here$
            )
        )
    )
)
(set @default-dest destination$)
(set destination$ (tackon destination$ "init.ps"))
(set filesize (getsize destination$))
(set renamed-old-init 0)
(
    if (= filesize 5993)
    (
        (set result 1)
        (set release 0)
        (
            until (= 0 result)
            (
                (
                    if
                    (= 0
                        (
                            set release
                            (
                                askchoice
                                (prompt prompt-release$)
                                (help (cat help-release$ @askchoice-help))
                                (choices "Release 1 or 2" "Release 3")
                                (default release)
                            )
                        )
                    )
                    (set patch$ "FinalWriter1_2-init.ps.pch")
                    (set patch$ "FinalWriter3-init.ps.pch")
                )
                (PatchInitPSFile)
                (
                    if (<> 0 result)
                    (
                        message wrong-version$ changed-version$
                    )
                )
            )
        )
    )
    (
        if (= filesize 5991)
        (
            (set patch$ "FinalWriter4-init.ps.pch")
            (PatchInitPSFile)
            (
                if (<> 0 result)
                (
                    abort unknown-version$ changed-version$
                )
            )
        )
        (
            if (= filesize 6215)
            (
                abort patch-is-already-installed$
            )
            (
                abort unknown-version$ changed-version$
            )
        )
    )
)